home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / ditroff / tmac.sd < prev    next >
Encoding:
Text File  |  1988-12-21  |  20.9 KB  |  1,376 lines
  1. .lg 0
  2. .\"    RT -  reset everything to normal state
  3. .de RT
  4. .if !\\n(1T .BG
  5. .ce 0
  6. .if !\\n(IK .if !\\n(IF .if !\\n(IX .if !\\n(BE .di
  7. .ul 0
  8. .if \\n(QP \{\
  9. .    ll +\\n(QIu
  10. .    in -\\n(QIu
  11. .    nr QP -1\}
  12. .if \\n(NX<=1 .if \\n(AJ=0 .ll \\n(LLu
  13. .if \\n(IF=0 \{\
  14. .    ps \\n(PS
  15. .    if \\n(VS>=41 .vs \\n(VSu
  16. .    if \\n(VS<=40 .vs \\n(VSp\}
  17. .if \\n(IP .in \\n(I\\n(IRu
  18. .if \\n(IP=0 .if \\n(IR=0 \{\
  19. .nr I1 \\n(PIu
  20. .nr I2 0
  21. .nr I3 0
  22. .nr I4 0
  23. .nr I5 0
  24. .nr J0 0
  25. .nr J1 0
  26. .nr J2 0
  27. .nr J3 0
  28. .nr J4 0
  29. .nr J5 0\}
  30. .if \\n(IP .nr IP -1
  31. .ft 1
  32. .bd 1
  33. .ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
  34. .fi
  35. ..
  36. .    \"IZ - initialization
  37. .de IZ
  38. .so /sprite/lib/ditroff/tmac.sddisp
  39. .nr TN 0
  40. .em EM
  41. . \"  ACCENTS  say \*'e or \*`e to get e acute or e grave
  42. .ds ' \h'\w'e'u*4/10'\z\(aa\h'-\w'e'u*4/10'
  43. .ds ` \h'\w'e'u*4/10'\z\(ga\h'-\w'e'u*4/10'
  44. . \"  UMLAUT  \*:u, etc.
  45. .if t .ds : \\v'-0.6m'\\h'(1u-(\\\\n(.fu%2u))*0.13m+0.06m'\\z.\\h'0.2m'\\z.\\h'-((1u-(\\\\n(.fu%2u))*0.13m+0.26m)'\\v'0.6m'
  46. .if n .ds : \z"
  47. . \" TILDE and CIRCUMFLEX
  48. .ds ^ \\\\k:\\h'-\\\\n(.fu+1u/2u*2u+\\\\n(.fu-1u*0.13m+0.06m'\\z^\\h'|\\\\n:u'
  49. .ds ~ \\\\k:\\h'-\\\\n(.fu+1u/2u*2u+\\\\n(.fu-1u*0.13m+0.06m'\\z~\\h'|\\\\n:u'
  50. .    \" czech v symbol
  51. .ds C \\\\k:\\\\h'+\\\\w'e'u/4u'\\\\v'-0.6m'\\\\s6v\\\\s0\\\\v'0.6m'\\\\h'|\\\\n:u'
  52. .ds v \\\\k:\\\\h'+\\\\w'e'u/4u'\\\\v'-0.6m'\\\\s6v\\\\s0\\\\v'0.6m'\\\\h'|\\\\n:u'
  53. .        \" cedilla
  54. .ds , \\\\k:\\\\h'\\\\w'c'u*0.4u'\\\\z,\\\\h'|\\\\n:u'
  55. .so /sprite/lib/ditroff/tmac.sdrefs
  56. .if n .ds [. [
  57. .if t .ds [. \s-2\v'-.4m'\f1
  58. .if n .ds .] ]
  59. .if t .ds .] \v'.4m'\s+2\fP
  60. .if n .ds [o ""
  61. .if n .ds [c ""
  62. .if t .ds [o ``
  63. .if t .ds [c ''
  64. .ch FO \\n(YYu
  65. .if \\n(FM=0 .nr FM 1i
  66. .nr YY -\\n(FMu
  67. .nr XX 0 1
  68. .nr IP 0
  69. .nr PI 5n
  70. .if t .nr DV .5v
  71. .if n .nr DV 1v
  72. .nr QI 5n
  73. .nr I0 \\n(PIu
  74. .nr PS 10
  75. .nr VS 12
  76. .if !\\n(PD .if n .nr PD 1v
  77. .if t .if !\\n(PD .nr PD 0.3v
  78. .nr ML 3v
  79. .ps \\n(PS
  80. .if \\n(VS>=41 .vs \\n(VSu
  81. .if \\n(VS<=40 .vs \\n(VSp
  82. .nr IR 0
  83. .nr I0 0
  84. .nr I1 \\n(PIu
  85. .nr TB 0
  86. .nr SJ \\n(.j
  87. .nr LL 6i
  88. .ll \\n(LLu
  89. .nr LT \\n(.l
  90. .lt \\n(LTu
  91. .ev 1
  92. .nr FL \\n(LLu*11u/12u
  93. .ll \\n(FLu
  94. .ps 8
  95. .vs 10p
  96. .ev
  97. .if \\*(CH .ds CH "\(hy \\\\n(PN \(hy
  98. .wh 0 NP
  99. .wh -\\n(FMu FO
  100. .ch FO 16i
  101. .wh -\\n(FMu FX
  102. .ch FO -\\n(FMu
  103. .if t .wh -\\n(FMu/2u BT
  104. .if n .wh -\\n(FMu/2u-1v BT
  105. .nr CW 0-1
  106. .nr GW 0-1
  107. ..
  108. .    \" TM - U.C. Berkeley thesis mode
  109. .de TM
  110. .ls 2
  111. .if v .nr PO 1.5i
  112. .rm CH
  113. .ds RH \\\\n(PN
  114. .rm CF
  115. ..
  116. .    \" CT - chapter title 
  117. .de CT
  118. .rn RH R@
  119. .if \\n(1T .bp
  120. .RT
  121. .if \\n(1T .sp
  122. .if !\\n(1T .BG
  123. .RT
  124. .ft 3
  125. .if n .ul 100
  126. .ps \\n(PS+2
  127. .ce 100
  128. .nr CT 1
  129. .rn R@ RH
  130. ..
  131. .    \" LT - letter
  132. .de LT
  133. .nr PO 1.1i
  134. .if "\*(.T"va" .nr PO 0.8i
  135. .po \\n(POu
  136. .LP
  137. .rs
  138. .if n .sp 1i
  139. .ll 8i
  140. .ce 4
  141. University of California
  142. Computer Science Division
  143. Berkeley, California  94720
  144. .if "\\$1"D" \{.ce
  145. \\*(DY\}
  146. .ll
  147. .in 0
  148. .br
  149. .if t .sp 3
  150. .if n .sp
  151. .nf
  152. .if n .na
  153. .rm CF
  154. ..
  155. .de OK
  156. .br
  157. .di
  158. .di OD
  159. ..
  160. .de RP
  161. .nr ST 2
  162. .pn 0
  163. .rm SG
  164. .rm CS
  165. .rm QF
  166. .br
  167. ..
  168. .de TR \" Comp. Sci. Tech Rept series.
  169. .nr ST 3
  170. .pn 0
  171. .ds MN \\$1
  172. .rm SG
  173. .rm CS
  174. .rm QF
  175. .br
  176. ..
  177. .    \"TL - title and initialization
  178. .de TL
  179. .br
  180. .nr TV 1
  181. .if \\n(IM>0 .rm CS
  182. .if \\n(MN>0 .rm CS
  183. .ME
  184. .rm ME
  185. .di WT
  186. .na
  187. .fi
  188. .ll 5.0i
  189. .if n .if \\n(TN .ll 29
  190. .if t .if \\n(TN .ll 3.5i
  191. .ft 3
  192. .ps \\n(PS
  193. .if !\\n(TN .ps +2
  194. .if !\\n(TN .vs \\n(.s+2
  195. .if !\\n(TN .rm CS
  196. .hy 0
  197. ..
  198. .de TX
  199. .rs
  200. .sp .5i
  201. .ce 1000
  202. .if n .ul 1000
  203. .ps 12
  204. .ft 3
  205. .vs 15p
  206. .ne 4
  207. .hy 0
  208. .WT
  209. .hy 14
  210. .ce 0
  211. .ul 0
  212. ..
  213. .    \"    AU - author(s)
  214. .de AU
  215. .nr AV 1
  216. .ad \\n(SJ
  217. .br
  218. .di
  219. .br
  220. .nf
  221. .nr NA +1
  222. .ds R\\n(NA \\$1
  223. .ds E\\n(NA \\$2
  224. .di A\\n(NA
  225. .ll \\n(LLu
  226. .if t .if \\n(TN=0 .ft 2
  227. .if \\n(TN=0 .if n .ft 1
  228. .if \\n(TN>0 .ft 3
  229. .if \\n(TN .if n .ll 16
  230. .if t .if \\n(TN .ll 1.4i
  231. .ps 10
  232. ..
  233. .de AX
  234. .ft 1
  235. .rs
  236. .ce 1000
  237. .if n .ul 0
  238. .ps 10
  239. .vs 12p
  240. .if n .sp 2
  241. .if t .sp
  242. .A1
  243. .if n .sp 
  244. .if t .sp 0.5
  245. .ns
  246. .I1
  247. .if \\n(NA-1 .if n .sp 2
  248. .if t .if \\n(NA-1 .sp
  249. .A2
  250. .if \\n(NA-1 .if n .sp
  251. .if t .if \\n(NA-1 .sp 0.5
  252. .ns
  253. .I2
  254. .if t .if \\n(NA-2 .sp
  255. .if \\n(NA-2 .if n .sp 2
  256. .A3
  257. .if t .if \\n(NA-2 .sp 0.5
  258. .if \\n(NA-2 .if n .sp
  259. .ns
  260. .I3
  261. .if t .if \\n(NA-3 .sp
  262. .if \\n(NA-3 .if n .sp 2
  263. .A4
  264. .if t .if \\n(NA-3 .sp 0.5
  265. .if \\n(NA-3 .if n .sp
  266. .ns
  267. .I4
  268. .if t .if \\n(NA-4 .sp
  269. .if \\n(NA-4 .if n .sp 2
  270. .A5
  271. .if \\n(NA-4 .if n .sp
  272. .if t .if \\n(NA-4 .sp 0.5
  273. .ns
  274. .I5
  275. .if t .if \\n(NA-5 .sp
  276. .if \\n(NA-5 .if n .sp 2
  277. .A6
  278. .if \\n(NA-5 .if n .sp
  279. .if t .if \\n(NA-5 .sp 0.5
  280. .ns
  281. .I6
  282. .if t .if \\n(NA-6 .sp
  283. .if \\n(NA-6 .if n .sp 2
  284. .A7
  285. .if \\n(NA-6 .if n .sp
  286. .if t .if \\n(NA-6 .sp 0.5
  287. .ns
  288. .I7
  289. .if t .if \\n(NA-7 .sp
  290. .if \\n(NA-7 .if n .sp 2
  291. .A8
  292. .if \\n(NA-7 .if n .sp
  293. .if t .if \\n(NA-7 .sp 0.5
  294. .ns
  295. .I8
  296. .if t .if \\n(NA-8 .sp
  297. .if \\n(NA-8 .if n .sp 2
  298. .A9
  299. .if \\n(NA-8 .if n .sp
  300. .if t .if \\n(NA-8 .sp 0.5
  301. .ns
  302. .I9
  303. ..
  304. .    \"AI - authors institution
  305. .de AI
  306. .br
  307. .ft 1
  308. .di
  309. .di I\\n(NA
  310. .nf
  311. ..
  312. .    \"AB - begin an abstract
  313. .de AB
  314. .br
  315. .di
  316. .ul 0
  317. .ce 0
  318. .nr 1T 1
  319. .nr IK 1
  320. .nr KI 1
  321. .di WB
  322. .rs
  323. .nr AJ 1
  324. .ce 1
  325. .ft 2
  326. .if n .ul
  327. .ll \\n(LLu
  328. .if \\n(.$=0 ABSTRACT
  329. .if \\n(.$>0 .if !"\\$1"-" .if !"\\$1"no"  \\$1
  330. .if \\n(.$=0 .sp
  331. .if \\n(.$>0 .if !"\\$1"-" .if !"\\$1"no" .sp
  332. .hy 14
  333. .ul 0
  334. .ce 0
  335. .fi
  336. .ft 1
  337. .nr OJ \\n(.i
  338. .in +\\n(.lu/12u
  339. .ll -\\n(.lu/12u
  340. .br
  341. .ps \\n(PS
  342. .if \\n(VS>=41 .vs \\n(VSu
  343. .if \\n(VS<=40 .vs \\n(VSp
  344. .ti +\\n(PIu
  345. ..
  346. .    \"AE - end of an abstract
  347. .de AE
  348. .br
  349. .di
  350. .ll \\n(LLu
  351. .ps \\n(PS
  352. .if \\n(VS>=41 .vs \\n(VSu
  353. .if \\n(VS<=40 .vs \\n(VSp
  354. .nr 1T 0
  355. .nr IK 0
  356. .in \\n(OJu
  357. .nr AJ 0
  358. .di
  359. .ce 0
  360. .if \\n(ST=2 .SY
  361. .if \\n(ST<3 .rm SY
  362. ..
  363. .    \"S2 - release paper style
  364. .    \"SY - cover sheet of released paper
  365. .de SY
  366. .ll \\n(LLu
  367. .ns
  368. .if \\n(TV .TX
  369. .if \\n(AV .AX
  370. .rs
  371. .ce 0
  372. .nf
  373. .sp 3
  374. .ls 1
  375. .pn 2
  376. .WB
  377. .ls 
  378. .sp 3v
  379. \\*(DY
  380. .sp |9i
  381. .if \\n(FP>0 .FA
  382. .FG
  383. .if \\n(GA=1 .nr GA 2
  384. .fi
  385. ..
  386. .    \"S2 - first text page, released paper format
  387. .de S2
  388. .ce 0
  389. .br
  390. .SY
  391. .rm SY
  392. .bp 1
  393. .if \\n(TV .TX
  394. .if \\n(AV .AX
  395. .rs
  396. .ce 0
  397. .ft 1
  398. .ad \\n(SJ
  399. ..
  400. .    \"S0- mike lesk conserve paper style
  401. .de S0
  402. .ce 0
  403. .br
  404. .ll \\n(LLu
  405. .if \\n(TV+\\n(AV>0 .ns
  406. .if \\n(TV .TX
  407. .if \\n(AV .AX
  408. .if \\n(TV+\\n(AV>0 .rs
  409. .ce 0
  410. .if \\n(TV>0 .sp 2
  411. .ls 1
  412. .if \\n(FP>0 \{\
  413. .    FJ
  414. .    nf
  415. .    FG
  416. .    fi
  417. .    FK
  418. .    nr FP 0\}
  419. .nf
  420. .WB
  421. .ls
  422. .fi
  423. .ad \\n(SJ
  424. ..
  425. .    \"S3 - CSTR style
  426. .de S3
  427. .rs
  428. .sp |2.25i
  429. .ce 1000
  430. .I1
  431. .if \\n(NA>1 .sp .5
  432. .if \\n(NA>1 .I2
  433. .if \\n(NA>2 .sp .5
  434. .if \\n(NA>2 .I3
  435. .if \\n(NA>3 .sp .5
  436. .if \\n(NA>3 .I4
  437. .if \\n(NA>4 .sp .5
  438. .if \\n(NA>4 .I5
  439. .if \\n(NA>5 .sp .5
  440. .if \\n(NA>5 .I6
  441. .if \\n(NA>6 .sp .5
  442. .if \\n(NA>6 .I7
  443. .if \\n(NA>7 .sp .5
  444. .if \\n(NA>7 .I8
  445. .if \\n(NA>8 .sp .5
  446. .if \\n(NA>8 .I9
  447. .sp |4i
  448. .    \"check how long title is: can space extra .25 inch if short
  449. .di EZ
  450. .WT
  451. .di
  452. .if \\n(dn<1.5v .if \\n(NA=1 .sp .25i
  453. .ft 1
  454. Computing Science Technical Report No. \\*(MN
  455. .sp
  456. .if t .ft 3
  457. .if n .ul 100
  458. .ps 12
  459. .vs 15p
  460. .hy 0
  461. .WT
  462. .hy 14
  463. .ft 1
  464. .if n .ul 0
  465. .ps 10
  466. .vs 12p
  467. .sp
  468. .ft 1
  469. .A1
  470. .A2
  471. .A3
  472. .A4
  473. .A5
  474. .A6
  475. .A7
  476. .A8
  477. .A9
  478. .ce 0
  479. .sp |8.5i
  480. .ce 0
  481. \\*(DY
  482. .DZ
  483. .bp 0
  484. .ft 1
  485. .S2
  486. ..
  487. .    \"SG - signature
  488. .de SG
  489. .br
  490. .KS
  491. .in +2u*\\n(.lu/3u
  492. .sp 4
  493. .A1
  494. .if \\n(NA-1 .sp 4
  495. .A2
  496. .if \\n(NA-2 .sp 4
  497. .A3
  498. .if \\n(NA-3 .sp 4
  499. .A4
  500. .if \\n(NA-4 .sp 4
  501. .A5
  502. .if \\n(NA>5 .sp 4
  503. .A6
  504. .if \\n(NA>6 .sp 4
  505. .A7
  506. .if \\n(NA>7 .sp 4
  507. .A8
  508. .if \\n(NA>8 .sp 4
  509. .A9
  510. .in
  511. .nf
  512. .sp -1
  513. .if \\n(.$>=1 \\$1
  514. .if \\n(.$>=2 \\$2
  515. .if \\n(.$>=3 \\$3
  516. .if \\n(.$>=4 \\$4
  517. .if \\n(.$>=5 \\$5
  518. .if \\n(.$>=6 \\$6
  519. .if \\n(.$>=7 \\$7
  520. .if \\n(.$>=8 \\$8
  521. .if \\n(.$>=9 \\$9
  522. .fi
  523. .br
  524. .KE
  525. ..
  526. .    \"Tables.  TS - table start, TE - table end
  527. .de TS
  528. .br
  529. .if !\\n(1T .RT
  530. .ul 0
  531. .ti \\n(.iu
  532. .if t .sp 0.5
  533. .if n .sp
  534. .if \\$1H .TQ
  535. .nr IX 1
  536. ..
  537. .de TQ
  538. .di TT
  539. .nr IT 1
  540. ..
  541. .de TH
  542. .if \\n(.d>0.5v .nr T. 0
  543. .if \\n(.d>0.5v .T# 0
  544. .di
  545. .nr TQ \\n(.i
  546. .nr HT 1
  547. .in 0
  548. .mk #a
  549. .mk #b
  550. .mk #c
  551. .mk #d
  552. .mk #e
  553. .mk #f
  554. .TT
  555. .in \\n(TQu
  556. .mk #T
  557. ..
  558. .de TE
  559. .nr IX 0
  560. .if \\n(IT>0 .if \\n(HT=0 .di
  561. .if \\n(IT>0 .if \\n(HT=0 .nr EF \\n(.u
  562. .if \\n(IT>0 .if \\n(HT=0 .nf
  563. .if \\n(IT>0 .if \\n(HT=0 .TT
  564. .if \\n(IT>0 .if \\n(HT=0 .if \\n(EF>0 .fi
  565. .nr IT 0
  566. .nr HT 0
  567. .if n .sp 1
  568. .if t .sp 0.5
  569. .rm a+ b+ c+ d+ e+ f+ g+ h+ i+ j+ k+ l+ n+ m+
  570. .rr 32 33 34 35 36 37 38 40 79 80 81 82
  571. .rr a| b| c| d| e| f| g| h| i| j| k| l| m|
  572. .rr a- b- c- d- e- f- g- h- i- j- k- l- m-
  573. ..
  574. .so /sprite/lib/ditroff/tmac.sdkeep
  575. .de EQ  \"equation, breakout and display
  576. .nr EF \\n(.u
  577. .rm EE
  578. .nr LE 1    \" 1 is center
  579. .ds EL \\$1
  580. .if "\\$1"L" .ds EL \\$2
  581. .if "\\$1"L" .nr LE 0
  582. .if "\\$1"C" .ds EL \\$2
  583. .if "\\$1"R" .ds EL \\$2
  584. .if "\\$1"R" .nr LE 2 \" 2 is right adjust
  585. .if "\\$1"I" .nr LE 0
  586. .if "\\$1"I" .ds EE \\h'|10n'
  587. .if "\\$1"I" .if !"\\$3"" .ds EE \\h'\\$3'
  588. .if "\\$1"I" .ds EL \\$2
  589. .if \\n(YE>0 .nf
  590. .di EZ
  591. ..
  592. .de EN  \" end of a displayed equation
  593. .br
  594. .di
  595. .rm EZ
  596. .nr ZN \\n(dn
  597. .if \\n(ZN>0 .if \\n(YE=0 .LP
  598. .if \\n(ZN=0 .if !"\\*(EL"" .nr ZN 1
  599. .if "\\n(.z"" .if \\n(ZN>0 .if !\\n(nl=\\n(PE .sp \\n(DVu
  600. .if !"\\n(.z"" .if \\n(ZN>0 .if !\\n(.d=\\n(PE .sp \\n(DVu
  601. 'pc
  602. .if \\n(BD>0 .nr LE 0 \" can't mean centering in this case.
  603. .if \\n(MK>0 .if \\n(LE=1 .ds EE \\h'|10n'
  604. .if \\n(MK>0 .nr LE 0 \" don't center if mark/lineup
  605. 'lt \\n(.lu
  606. .if \\n(EP=0 .if \\n(ZN>0 .if \\n(LE=1 .tl \(ts\(ts\\*(10\(ts\\*(EL\(ts
  607. .if \\n(EP=0 .if \\n(ZN>0 .if \\n(LE=2 .tl \(ts\(ts\(ts\\*(10\\*(EL\(ts
  608. .if \\n(EP=0 .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD=0 .tl \(ts\\*(EE\\*(10\(ts\(ts\\*(EL\(ts
  609. .if \\n(EP=0 .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w\(ts\\*(10\(ts .nr BD \\w\(ts\\*(10\(ts
  610. .if \\n(EP=0 .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\t\\*(EL
  611. .if \\n(EP>0 .if \\n(ZN>0 .if \\n(LE=1 .tl \(ts\\*(EL\(ts\\*(10\(ts\(ts
  612. .if \\n(EP>0 .if \\n(ZN>0 .if \\n(LE=2 .tl \(ts\\*(EL\(ts\(ts\\*(10\(ts
  613. .if \\n(EP>0 .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD=0 .tl \(ts\\*(EL\\*(EE\\*(10\(ts\(ts\(ts
  614. .if \\n(EP>0 .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w\(ts\\*(10\(ts .nr BD \\w\(ts\\*(10\(ts
  615. .if \\n(EP>0 .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 \!\\h'-\\\\n(.iu'\\*(EL\\h'|0'\\*(10
  616. 'lt \\n(LLu
  617. 'pc %
  618. .if \\n(YE>0 .if \\n(EF>0 .fi
  619. .rm EL 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  620. .rr 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  621. .if \\n(ZN>0 .sp \\n(DVu
  622. .if "\\n(.z"" .nr PE \\n(nl
  623. .if !"\\n(.z"" .nr PE \\n(.d
  624. ..
  625. .de IS  \"    ideal picture
  626. .nr g7 \\n(.u
  627. .ls 1
  628. ..
  629. .de IF
  630. .if \\n(g7 .fi
  631. .ls
  632. ..
  633. .de IE
  634. .if \\n(g7 .fi
  635. .ls
  636. ..
  637. .de PS    \"     start picture (bwk) $1 is height, $2 is width in units
  638. .if t .sp .3
  639. .in (\\n(.lu-\\$2u)/2u
  640. .ne \\$1u
  641. .nr g7 \\n(.u
  642. .ls 1
  643. ..
  644. .de PE
  645. .in
  646. .if \\n(g7 .fi
  647. .if t .sp .6
  648. .ls
  649. ..
  650. .de GS    \"    GRN called with C (default), L or R  (g1=width, g2=height)
  651. .nr g7 (\\n(.lu-\\n(g1u)/2u
  652. .if "\\$1"L" .nr g7 \\n(.iu
  653. .if "\\$1"R" .nr g7 \\n(.lu-\\n(g1u
  654. .in \\n(g7u
  655. .nr g7 \\n(.u
  656. .ls 1
  657. .nf
  658. .ne \\n(g2u
  659. ..
  660. .de GE
  661. .ls
  662. .in
  663. .if \\n(g7 .fi
  664. .if t .sp .6
  665. ..
  666. .de GF
  667. .ls
  668. .in
  669. .if \\n(g7 .fi
  670. ..
  671. .de ME
  672. .nr SJ \\n(.j
  673. .if \\n(LL>0 .nr LT \\n(LL
  674. .nr YE 1
  675. .if \\n(PO=0 .nr PO \\n(.o
  676. .if \\n(mo-0 .ds MO January
  677. .if \\n(mo-1 .ds MO February
  678. .if \\n(mo-2 .ds MO March
  679. .if \\n(mo-3 .ds MO April
  680. .if \\n(mo-4 .ds MO May
  681. .if \\n(mo-5 .ds MO June
  682. .if \\n(mo-6 .ds MO July
  683. .if \\n(mo-7 .ds MO August
  684. .if \\n(mo-8 .ds MO September
  685. .if \\n(mo-9 .ds MO October
  686. .if \\n(mo-10 .ds MO November
  687. .if \\n(mo-11 .ds MO December
  688. .if \\n(dw-0 .ds DW Sunday
  689. .if \\n(dw-1 .ds DW Monday
  690. .if \\n(dw-2 .ds DW Tuesday
  691. .if \\n(dw-3 .ds DW Wednesday
  692. .if \\n(dw-4 .ds DW Thursday
  693. .if \\n(dw-5 .ds DW Friday
  694. .if \\n(dw-6 .ds DW Saturday
  695. .if "\\*(DY"" .ds DY \\*(MO \\n(dy, 19\\n(yr
  696. .if "\\*(CF"" .if n .ds CF "\\*(DY
  697. ..
  698. .    \"EM end up macro - process left over keep-release
  699. .de EM
  700. .br
  701. .if \\n(AJ>0 .tm Syntax error: no .AE
  702. .if "\*(.T"vp" .if \\n(TB=0 .wh -1p CM
  703. .if \\n(TB \&\c
  704. .if \\n(TB 'bp
  705. .if \\n(TB .NP
  706. .if \\n(TB .ch CM 160
  707. ..
  708. .    \"NP new page
  709. .de NP
  710. .if \\n(FM+\\n(HM>=\\n(.p .tm Margins bigger than page length.
  711. .if \\n(FM+\\n(HM>=\\n(.p .ab
  712. .if \\n(FM+\\n(HM>=\\n(.p .ex
  713. .if "\*(.T"vp" .CM
  714. .if \\n(HM=0 .nr HM 1i
  715. 'sp \\n(HMu/2u
  716. .ev 1
  717. .nr PX \\n(.s
  718. .nr PF \\n(.f
  719. .nr PV \\n(.v
  720. .lt \\n(LTu
  721. .ps \\n(PS
  722. .vs \\n(PS+2
  723. .ft 1
  724. .if \\n(PO>0 .po \\n(POu
  725. .PT
  726. .ps \\n(PX
  727. .vs \\n(PVu
  728. .ft \\n(PF
  729. .ev
  730. 'sp |\\n(HMu
  731. .nr XX 0 1
  732. .nr YY 0-\\n(FMu
  733. .ch FO 16i
  734. .ch FX 17i
  735. .ch FO \\n(.pu-\\n(FMu
  736. .ch FX \\n(.pu-\\n(FMu
  737. .if \\n(MF .FV
  738. .nr MF 0
  739. .mk
  740. .os
  741. .ev 1
  742. .if \\n(TD=0 .if \\n(TC<5  .XK
  743. .nr TC 0
  744. .ns
  745. .ev
  746. .nr TQ \\n(.i
  747. .nr TK \\n(.u
  748. .if \\n(IT>0 \{\
  749. .    in 0
  750. .    nf
  751. .    TT
  752. .    in \\n(TQu
  753. .    if \\n(TK .fi\
  754. \}
  755. .mk #T
  756. ..
  757. .de XK
  758. .nr TD 1
  759. .nf
  760. .ls 1
  761. .in 0
  762. .rn KJ KL
  763. .KL
  764. .rm KL
  765. .if "\\n(.z"KJ" .di
  766. .nr TB 0
  767. .if "\\n(.z"KJ" .nr TB 1
  768. .br
  769. .in
  770. .ls
  771. .fi
  772. .if (\\n(nl+1v)>(\\n(.p-\\n(FM) .if \\n(NX>1 .RC
  773. .if (\\n(nl+1v)>(\\n(.p-\\n(FM) .if \\n(NX<1 .bp
  774. .nr TD 0
  775. ..
  776. .de KD
  777. .nr KM 0
  778. .if "\\n(.z"" .if \\$2>0 .if \\n(nl>\\n(HM .if (\\n(nl+1v)<(\\n(.p-\\n(FM) .di KJ
  779. .if "\\n(.z"" .if \\n(nl>\\n(HM .if \\$2>0 .sp 15i \" full page figure must have new page
  780. .if "\\n(.z"" .if \\n(nl>\\n(HM .if \\$2=0 .if (\\n(nl+1v)>(\\n(.p-\\n(FM) .sp 15i
  781. .if "\\n(.z"KJ" .nr KM 1 \" KM is 1 if in a rediversion of keeps
  782. .if \\n(KM>0 \!.KD \\$1 \\$2
  783. .nr KR \\n(.t
  784. .if \\n(nl<=\\n(HM .nr KR 32767
  785. .if \\n(KM=0 .if \\n(KR<\\$1 .di KJ
  786. .if \\n(KM=0 .if \\n(KR<\\$1 .nr KM 1
  787. .if \\n(KM=0 .if \\$2>0 .if (\\n(nl+1v)>(\\n(.p-\\n(FM) .sp 15i
  788. .rs
  789. .if \\n(KM=0 .if \\$2>0 .sp \\n(.tu-\\$1u
  790. ..
  791. .de PT
  792. .lt \\n(LLu
  793. .pc %
  794. .nr PN \\n%
  795. .if \\n%-1 .tl '\\*(LH'\\*(CH'\\*(RH'
  796. .lt \\n(.lu
  797. ..
  798. .    \"FO - footer of page
  799. .de FO
  800. .rn FO FZ
  801. .if \\n(K1>0 .tm This memo has a multi-page cover sheet.  You are
  802. .if \\n(K1>0 .tm rebuked in the name of the Committee on Technical Memoranda.
  803. .if \\n(IT>0 .nr T. 1
  804. .if \\n(IT>0 .if \\n(FC=0  .T# 1
  805. .if \\n(IT>0 .br
  806. .nr FC +1
  807. .if \\n(NX<2 .nr WF 0
  808. .nr dn 0
  809. .if \\n(FC<=1 .if \\n(XX .XF
  810. .rn FZ FO
  811. .nr MF 0
  812. .if \\n(dn  .nr MF 1
  813. .if !\\n(WF .nr YY 0-\\n(FMu
  814. .if !\\n(WF .ch FO \\n(YYu
  815. .if !\\n(dn .nr WF 0
  816. .if \\n(FC<=1 .if \\n(XX=0  .if \\n(NX>1 .RC
  817. .if \\n(FC<=1 .if \\n(XX=0  .if \\n(NX<1 'bp
  818. .nr FC -1
  819. .if \\n(ML>0 .ne \\n(MLu
  820. ..
  821. .    \"2C - begin double column
  822. .de 2C
  823. .MC \" default MC is double column
  824. ..
  825. .de MC \" multiple columns- arg is line length
  826. .nr L1 \\n(LL*7/15
  827. .if \\n(CW>=0 .nr L1 \\n(CWu
  828. .if \\n(.$>0 .nr L1 \\$1n
  829. .if \\n(GW>=0 .nr GW \\n(GWu
  830. .if \\n(.$>1 .nr GW \\$1n
  831. .nr NQ \\n(LL/\\n(L1
  832. .if \\n(NQ<1 .nr NQ 1
  833. .if \\n(NQ>2 .if (\\n(LL%\\n(L1)=0 .nr NQ -1
  834. .if \\n(1T=0 \{\
  835. .    BG
  836. .    if n .sp 4
  837. .    if t .sp 2\}
  838. .if \\n(NX=0 .nr NX 1
  839. .if !\\n(NX=\\n(NQ \{\
  840. .    RT
  841. .    if \\n(NX>1 .bp
  842. .    mk
  843. .    nr NC 1
  844. .    po \\n(POu\}
  845. .if \\n(NQ>1 .hy 14
  846. .nr NX \\n(NQ
  847. .if \\n(NX>1 .nr CW \\n(L1
  848. .ll \\n(L1u
  849. .nr FL \\n(L1u*11u/12u
  850. .if \\n(NX>1 .if \\n(GW<0 .nr GW (\\n(LL-(\\n(NX*\\n(L1))/(\\n(NX-1)
  851. .nr RO \\n(L1+\\n(GW
  852. .ns
  853. ..
  854. .de RC
  855. .ie \\n(NC>=\\n(NX .C2
  856. .el .C1
  857. ..
  858. .de C1
  859. .rt
  860. .po +\\n(ROu
  861. .nr NC +1
  862. .if \\n(NC>\\n(NX .nr NC 1
  863. .nr XX 0 1
  864. .nr YY 0-\\n(FMu
  865. .if \\n(MF .FV
  866. .ch FX \\n(.pu-\\n(FMu
  867. .ev 1
  868. .if \\n(TB .XK
  869. .nr TC 0
  870. .ev
  871. .nr TQ \\n(.i
  872. .if \\n(IT>0 .in 0
  873. .if \\n(IT>0 .TT
  874. .if \\n(IT>0 .in \\n(TQu
  875. .mk #T
  876. .ns
  877. ..
  878. .de C2
  879. .po \\n(POu
  880. .nr NC +1
  881. .if \\n(NC>\\n(NX .nr NC 1
  882. 'bp
  883. ..
  884. .    \"1C - return to single column format
  885. .de 1C
  886. .MC \\n(LLu
  887. .hy 14
  888. ..
  889. .de BT
  890. .nr PX \\n(.s
  891. .nr PF \\n(.f
  892. .ft 1
  893. .ps \\n(PS
  894. 'lt \\n(LTu
  895. .po \\n(POu
  896. .if \\n%>0 .tl \(ts\\*(LF\(ts\\*(CF\(ts\\*(RF\(ts
  897. .ft \\n(PF
  898. .ps \\n(PX
  899. ..
  900. .    \"PP - paragraph
  901. .de PP
  902. .RT
  903. .if \\n(1T .sp \\n(PDu
  904. .ti +\\n(PIu
  905. ..
  906. .    \"SH - (unnumbered) section heading
  907. .de SH
  908. .ti \\n(.iu
  909. .RT
  910. .if \\n(1T .sp 1
  911. .if !\\n(1T .BG
  912. .RT
  913. .ne 4
  914. .ft 3
  915. .if n .ul 1000
  916. ..
  917. .    \"NH - numbered heading
  918. .de NH
  919. .RT
  920. .if \\n(1T .sp 1
  921. .if !\\n(1T .BG
  922. .RT
  923. .ne 4
  924. .ft 3
  925. .if n .ul 1000
  926. .nr NS \\$1
  927. .if !\\n(.$ .nr NS 1
  928. .if !\\n(NS .nr NS 1
  929. .nr H\\n(NS +1
  930. .if !\\n(NS-4 .nr H5 0
  931. .if !\\n(NS-3 .nr H4 0
  932. .if !\\n(NS-2 .nr H3 0
  933. .if !\\n(NS-1 .nr H2 0
  934. .if !\\$1 .if \\n(.$ .nr H1 1
  935. .ds SN \\n(H1.
  936. .ti \\n(.iu
  937. .if \\n(NS-1 .as SN \\n(H2.
  938. .if \\n(NS-2 .as SN \\n(H3.
  939. .if \\n(NS-3 .as SN \\n(H4.
  940. .if \\n(NS-4 .as SN \\n(H5.
  941. \\*(SN
  942. ..
  943. .    \"BG - begin, execute at first PP
  944. .de BG
  945. .br
  946. .ME
  947. .rm ME
  948. .di
  949. .ce 0
  950. .nr KI 0
  951. .hy 14
  952. .nr 1T 1
  953. .S\\n(ST
  954. .rm S0
  955. .rm S1
  956. .rm S2
  957. .rm S3
  958. .rm OD
  959. .rm OK
  960. .rm TX
  961. .rm AX
  962. .rm WT
  963. .rm CS
  964. .rm RP
  965. .rm I1
  966. .rm I2
  967. .rm I3
  968. .rm I4
  969. .rm I5
  970. .rm CB
  971. .rm E1
  972. .rm E2
  973. .de TL
  974. .ft 3
  975. .sp
  976. .if n .ul 100
  977. .ce 100
  978. .ps +2
  979. \\..
  980. .de AU
  981. .ft 2
  982. .if n .ul 0
  983. .ce 100
  984. .sp
  985. .NL
  986. \\..
  987. .de AI
  988. .ft 1
  989. .ce 100
  990. .if n .ul 0
  991. .if n .sp
  992. .if t .sp .5
  993. .NL
  994. \\..
  995. .RA
  996. .rm RA
  997. .rn FJ FS
  998. .rn FK FE
  999. .nf
  1000. .ev 1
  1001. .ps \\n(PS-2
  1002. .vs \\n(.s+2p
  1003. .ev
  1004. .if \\n(KG=0 .nr FP 0 
  1005. .if \\n(GA>1 .if \\n(KG=0 .nr GA 0 \" next UNIX must be flagged.
  1006. .nr KG 0 
  1007. .if \\n(FP>0 .FS
  1008. .if \\n(FP>0 .FG
  1009. .if \\n(FP>0 .FE
  1010. .br
  1011. .if \\n(TV>0 .if n .sp 2
  1012. .if t .if \\n(TV>0 .sp 1
  1013. .fi
  1014. .ll \\n(LLu
  1015. .ev 1
  1016. .nr FL \\n(LLu*11u/12u
  1017. .ll \\n(FLu
  1018. .ev
  1019. ..
  1020. .de RA \"redefine abstract macros
  1021. .de AB
  1022. .br
  1023. .if !\\n(1T .BG
  1024. .ce 1
  1025. .sp 1
  1026. .if \\n(.$=0 ABSTRACT
  1027. .if \\n(.$>0 .if !"\\$1"-" .if !"\\$1"no"  \\$1
  1028. .if \\n(.$=0 .sp
  1029. .if \\n(.$>0 .if !"\\$1"-" .if !"\\$1"no" .sp
  1030. .sp 1
  1031. .nr AJ 1
  1032. .in +\\n(.lu/12u
  1033. .ll -\\n(.lu/12u
  1034. .RT
  1035. \\..
  1036. .de AE
  1037. .nr AJ 0
  1038. .br
  1039. .in 0
  1040. .ll \\n(LLu
  1041. .if \\n(VS>=41 .vs \\n(VSu
  1042. .if \\n(VS<=40 .vs \\n(VSp
  1043. \\..
  1044. ..
  1045. .    \"IP - indented paragraph
  1046. .de IP
  1047. .RT
  1048. .if !\\n(IP .nr IP +1
  1049. .if \\n(ID>0 .sp \\n(IDu
  1050. .if \\n(ID=0 .sp \\n(PDu
  1051. .nr IU \\n(IR+1
  1052. .if \\n(.$>1 .nr I\\n(IU \\$2n+\\n(I\\n(IRu
  1053. .if \\n(I\\n(IU=0 .nr I\\n(IU \\n(PIu+\\n(I\\n(IRu
  1054. .in \\n(I\\n(IUu
  1055. .nr TY \\n(TZ-\\n(.i
  1056. .nr JQ \\n(I\\n(IU-\\n(I\\n(IR
  1057. .ta \\n(JQu \\n(TYuR
  1058. .if \\n(.$>0 \{\
  1059. .ti \\n(I\\n(IRu
  1060. \&\\$1\t\c\}
  1061. ..
  1062. .    \"LP - left aligned (block) paragraph
  1063. .de LP
  1064. .ti \\n(.iu
  1065. .RT
  1066. .if \\n(1T .sp \\n(PDu
  1067. ..
  1068. .de QP
  1069. .ti \\n(.iu
  1070. .RT
  1071. .if \\n(1T .sp \\n(PDu
  1072. .ne 1.1
  1073. .nr QP 1
  1074. .in +\\n(QIu
  1075. .ll -\\n(QIu
  1076. .ti \\n(.iu
  1077. ..
  1078. .    \"IE - synonym for .LP
  1079. .de IE
  1080. .LP
  1081. ..
  1082. .de XP
  1083. .RT
  1084. .if !\\n(IP .nr IP +1
  1085. .sp \\n(PDu
  1086. .ne 3
  1087. .nr IU \\n(IR+1
  1088. .if \\n(.$=3 .nr JQ \\$3n
  1089. .if \\n(.$=4 .nr JQ \\$4n
  1090. .if \\n(.$>2 .nr I\\n(IU \\n(I\\n(IR+\\n(JQ
  1091. .if \\n(I\\n(IU=0 .nr I\\n(IU \\n(I\\n(IR+\\n(PI
  1092. .if \\n(J\\n(IR=0 .nr J\\n(IR (\\n(I\\n(IR+\\n(I\\n(IU)/2
  1093. .nr JQ \\n(J\\n(IR-\\n(I\\n(IR
  1094. .if \\n(.$=4 .nr JQ \\$3n
  1095. .in \\n(I\\n(IUu
  1096. .nr JK \\n(I\\n(IU-\\n(I\\n(IR
  1097. .ta \\n(JQu \\n(JKu
  1098. .ti \\n(I\\n(IRu
  1099. \0\\$1\t\\$2\t\c
  1100. ..
  1101. .    \"RS - prepare for double indenting
  1102. .de RS
  1103. .nr IS \\n(IP
  1104. .RT
  1105. .nr IP \\n(IS
  1106. .nr IU \\n(IR
  1107. .nr IR +1
  1108. .if \\n(I\\n(IR=0 .nr I\\n(IR \\n(I\\n(IU+\\n(PIu
  1109. .in \\n(I\\n(IRu
  1110. .nr TY \\n(TZ-\\n(.i
  1111. .ta \\n(TYuR
  1112. ..
  1113. .    \"RE - retreat to the left
  1114. .de RE
  1115. .nr IS \\n(IP
  1116. .RT
  1117. .nr IP \\n(IS
  1118. .if \\n(IR>0 .nr IR -1
  1119. .in \\n(I\\n(IRu
  1120. ..
  1121. .de TC
  1122. .nr TZ \\n(.lu
  1123. .if \\n(.$ .nr TZ \\$1n
  1124. .ta \\n(TZuR
  1125. ..
  1126. .de TD
  1127. .LP
  1128. .nr TZ 0
  1129. ..
  1130. .    \"CM - cut mark
  1131. .de CM
  1132. .po 0
  1133. .lt 7.6i
  1134. .ft 1
  1135. .ps 10
  1136. .vs 4p
  1137. .tl '--''--'
  1138. .po
  1139. .vs
  1140. .lt
  1141. .ps
  1142. .ft
  1143. ..
  1144. .    \"B - bold font
  1145. .de B
  1146. .nr PQ \\n(.f
  1147. .if t .ft 3
  1148. .if "\\$1"" .if n .ul 1000
  1149. .if !"\\$1"" .if n .ul 1
  1150. .if t .if !"\\$1"" \&\\$1\\f\\n(PQ\\$2
  1151. .if n .if \\n(.$=1 \&\\$1
  1152. .if n .if \\n(.$>1 \&\\$1\\c
  1153. .if n .if \\n(.$>1 \\&\\$2
  1154. ..
  1155. .de BI    \" bold italic -- only on 202
  1156. .nr PQ \\n(.f
  1157. .if t .ft 4
  1158. .if "\\$1"" .if n .ul 1000
  1159. .if !"\\$1"" .if n .ul 1
  1160. .if t .if !"\\$1"" \&\\$1\\f\\n(PQ\\$2
  1161. .if n .if \\n(.$=1 \&\\$1
  1162. .if n .if \\n(.$>1 \&\\$1\\c
  1163. .if n .if \\n(.$>1 \\&\\$2
  1164. ..
  1165. .    \"R - Roman font
  1166. .de R
  1167. .nr PQ \\n(.f
  1168. .ft 1
  1169. .if \\n(.$>0 \&\\$1\\f\\n(PQ\\$2
  1170. .if \\n(.$=0 .if n .ul 0
  1171. ..
  1172. .    \"I - italic font
  1173. .de I
  1174. .nr PQ \\n(.f
  1175. .if t .ft 2
  1176. .if "\\$1"" .if n .ul 1000
  1177. .if !"\\$1"" .if n .ul 1
  1178. .if t .if !"\\$1"" \&\\$1\^\\f\\n(PQ\\$2
  1179. .if n .if \\n(.$=1 \&\\$1
  1180. .if n .if \\n(.$>1 \&\\$1\\c
  1181. .if n .if \\n(.$>1 \\&\\$2
  1182. ..
  1183. .    \"TA - tabs set in ens or chars
  1184. .de TA
  1185. .ta \\$1n \\$2n \\$3n \\$4n \\$5n \\$6n \\$7n \\$8n \\$9n
  1186. ..
  1187. .    \"SM - make smaller size
  1188. .de SM
  1189. .if \\n(.$>0 \&\\$3\s-2\\$1\s0\\$2
  1190. .if \\n(.$=0 .ps -2
  1191. ..
  1192. .    \"LG - make larger size
  1193. .de LG
  1194. .ps +2
  1195. ..
  1196. .    \"NL - return to normal size
  1197. .de NL
  1198. .ps \\n(PS
  1199. ..
  1200. .    \"DA - force date; ND - no date or new date.
  1201. .de DA
  1202. .if \\n(.$ .ds DY \\$1 \\$2 \\$3 \\$4
  1203. .ds CF \\*(DY
  1204. ..
  1205. .de ND
  1206. .ME
  1207. .rm ME
  1208. .ds DY \\$1 \\$2 \\$3 \\$4
  1209. .rm CF
  1210. ..
  1211. .de FN
  1212. .FS
  1213. ..
  1214. .    \"FS - begin footnote
  1215. .de FJ
  1216. 'ce 0
  1217. .nr IA \\n(IP
  1218. .nr IB \\n(.i
  1219. .ev1
  1220. .ll \\n(FLu
  1221. .da FF
  1222. .br
  1223. .if \\n(IF>0 .tm Footnote within footnote-illegal.
  1224. .if \\n(IF>0 .ab
  1225. .nr IF 1
  1226. .if !\\n+(XX-1 .FA
  1227. ..
  1228. .    \"FE - footnote end
  1229. .de FK
  1230. .br
  1231. .in 0
  1232. .nr IF 0
  1233. .di
  1234. .ev
  1235. .if !\\n(XX-1 .nr dn +\\n(.v
  1236. .nr YY -\\n(dn
  1237. .if \\n(NX=0 .nr WF 1
  1238. .if \\n(dl>\\n(CW .nr WF 1
  1239. .if (\\n(nl+\\n(.v)<=(\\n(.p+\\n(YY) .ch FO \\n(YYu
  1240. .if (\\n(nl+\\n(.v)>(\\n(.p+\\n(YY) .if \\n(nl>(\\n(HM+1.5v) .ch FO \\n(nlu+\\n(.vu
  1241. .if (\\n(nl+\\n(.v)>(\\n(.p+\\n(YY) .if \\n(nl+\\n(FM+1v>\\n(.p .ch FX \\n(.pu-\\n(FMu+2v
  1242. .if (\\n(nl+\\n(.v)>(\\n(.p+\\n(YY) .if \\n(nl<=(\\n(HM+1.5v) .ch FO \\n(HMu+(4u*\\n(.vu)
  1243. .nr IP \\n(IA
  1244. 'in \\n(IBu
  1245. ..
  1246. .\"    First page footer.
  1247. .de FS
  1248. .ev1
  1249. .br
  1250. .ll \\n(FLu
  1251. .da FG
  1252. ..
  1253. .de FE
  1254. .br
  1255. .di
  1256. .nr FP \\n(dn
  1257. .if \\n(1T=0 .nr KG 1 \"not in abstract repeat next page.
  1258. .if "\\n(.z"OD" .nr KG 0 \" if in OK, don't repeat.
  1259. .ev
  1260. ..
  1261. .de FA
  1262. .if n __________________________
  1263. .if t \l'1i'
  1264. .br
  1265. ..
  1266. .de FV
  1267. .FS
  1268. .nf
  1269. .ls 1
  1270. .FY
  1271. .ls
  1272. .fi
  1273. .FE
  1274. ..
  1275. .de FX
  1276. .if \\n(XX>0 .di FY
  1277. .if \\n(XX>0 .ns
  1278. ..
  1279. .de XF
  1280. .if \\n(nlu+1v>(\\n(.pu-\\n(FMu) .ch FX \\n(nlu+1.9v
  1281. .ev1
  1282. .nf
  1283. .ls 1
  1284. .FF
  1285. .rm FF
  1286. .nr XX 0 1
  1287. .br
  1288. .ls
  1289. .di
  1290. .fi
  1291. .ev
  1292. ..
  1293. .de FL
  1294. .ev1
  1295. .nr FL \\$1n
  1296. .ll \\$1
  1297. .ev
  1298. ..
  1299. .de UL \" underline argument, don't italicize
  1300. .if t \\$1\l'|0\(ul'\\$2
  1301. .if n .I "\\$1" "\\$2"
  1302. ..
  1303. .de UX
  1304. .ie \\n(GA>0 \\$2\s-1UNIX\s0\\$1
  1305. .el \{\
  1306. .if n \\$2UNIX\\$1*
  1307. .if t \\$2\s-1UNIX\\s0\\$1\\f1\(dg\\fP
  1308. .FS
  1309. .if n * UNIX
  1310. .if t \(dg UNIX
  1311. is a Trademark of Bell Laboratories.
  1312. .FE
  1313. .nr GA 1\}
  1314. ..
  1315. .de US
  1316. the
  1317. .UX
  1318. operating system
  1319. ..
  1320. .de QS
  1321. .br
  1322. .LP
  1323. .in +\\n(QIu
  1324. .ll -\\n(QIu
  1325. ..
  1326. .de QE
  1327. .br
  1328. .ll +\\n(QIu
  1329. .in -\\n(QIu
  1330. .LP
  1331. ..
  1332. .de B1 \" begin boxed stuff
  1333. .br
  1334. .di BB
  1335. .nr BC 0
  1336. .if "\\$1"C" .nr BC 1
  1337. .nr BE 1
  1338. ..
  1339. .de B2 \" end boxed stuff
  1340. .br
  1341. .nr BI 1n
  1342. .if \\n(.$>0 .nr BI \\$1n
  1343. .di
  1344. .nr BE 0
  1345. .nr BW \\n(dl
  1346. .nr BH \\n(dn
  1347. .ne \\n(BHu+\\n(.Vu
  1348. .nr BQ \\n(.j
  1349. .nf
  1350. .ti 0
  1351. .if \\n(BC>0 .in +(\\n(.lu-\\n(BWu)/2u
  1352. .in +\\n(BIu
  1353. .ls 1
  1354. .BB
  1355. .ls
  1356. .in -\\n(BIu
  1357. .nr BW +2*\\n(BI
  1358. .sp -1
  1359. \l'\\n(BWu\(ul'\L'-\\n(BHu'\l'|0\(ul'\h'|0'\L'\\n(BHu'
  1360. .if \\n(BC>0 .in -(\\n(.lu-\\n(BWu)/2u
  1361. .if \\n(BQ .fi
  1362. .br
  1363. ..
  1364. .de BX
  1365. .if t \(br\|\\$1\|\(br\l'|0\(rn'\l'|0\(ul'
  1366. .if n \(br\\kA\|\\$1\|\\kB\(br\v'-1v'\h'|\\nBu'\l'|\\nAu'\v'1v'\l'|\\nAu'
  1367. ..
  1368. .IZ
  1369. .rm IZ
  1370. .de [
  1371. [
  1372. ..
  1373. .de ]
  1374. ]
  1375. ..
  1376.